home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / main menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  52 lines
  1. 100 print"[147]"chr$(142)
  2. 110 poke53280,6:poke53281,0
  3. 120 printtab(9)"[152]planetary information":gosub530
  4. 130 print"[147]"
  5. 140 printtab(17)"menu"
  6. 150 printtab(10)"[155]press a for mercury"
  7. 160 printtab(10)"press b for venus"
  8. 170 printtab(10)"press c for earth"
  9. 180 printtab(10)"press d for moon"
  10. 190 printtab(10)"press e for mars"
  11. 200 printtab(10)"press f for jupiter"
  12. 210 printtab(10)"press g for saturn"
  13. 220 printtab(10)"press h for uranus"
  14. 230 printtab(10)"press i for neptune"
  15. 240 printtab(10)"press j for pluto"
  16. 250 printtab(10)"press k for the sun"
  17. 260 printtab(10)"press l for fun facts"
  18. 270 printtab(10)"press m for waste management"
  19. 290 printtab(10)"press q  to quit astro"
  20. 300 getb$
  21. 310 ifb$<"a"orb$>"q"then300
  22. 320 ifb$>"m"andb$<"q"then300
  23. 330 ifb$="a"thenf$="mercury":goto470
  24. 340 ifb$="b"thenf$="venus":goto470
  25. 350 ifb$="c"thenf$="earth":goto470
  26. 360 ifb$="d"thenf$="moon":goto470
  27. 370 ifb$="e"thenf$="mars":goto470
  28. 380 ifb$="f"thenf$="jupiter":goto470
  29. 390 ifb$="g"thenf$="saturn":goto470
  30. 400 ifb$="h"thenf$="uranus":goto470
  31. 410 ifb$="i"thenf$="neptune":goto470
  32. 420 ifb$="j"thenf$="pluto":goto470
  33. 430 ifb$="k"thenf$="sun":goto470
  34. 440 ifb$="l"thenf$="facts":goto470
  35. 450 ifb$="m"thenf$="bathroom":goto470
  36. 460 ifb$="q"then 62999
  37. 470 print"[144][147]load"chr$(34)f$chr$(34)",8"
  38. 480 print"run"
  39. 485 printtab(10)"working real hard...[144]"
  40. 490 poke198,10
  41. 500 data 19,13,13
  42. 510 fori=1to3 :readx:poke630+i,x:next
  43. 520 new
  44. 530 forl=54272to54295:pokel,0:next:poke54296,15
  45. 540 poke54277,8:poke54278,255:poke54276,23
  46. 550 f2=4
  47. 560 forz=1to1:poke54287,f2
  48. 570 forf1=1to200
  49. 580 poke54273,f1:f2=f2+.01:nextf1:nextz:poke54278,15:return
  50. 62999 print"[147]";
  51. 63000 load"hello connect",8:end
  52.